
(defun clear_all ()
  (setf (text *top_e_formula*)  "")
  (setf (text *top_e_quantity*) "")
  (setf (text *top_e_customer*) "")
  (setf (text *top_e_date*)     "")
  (setf (text *top_e_lot*)      "")
  (setf (text *top_e_notes*)    "")

  ;;todo loop for entries
  )
